From: Gerd Moellmann Date: Thu, 5 Apr 2001 12:12:50 +0000 (+0000) Subject: (realizing_basic_faces_p): Renamed from X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~40832 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=92c8f667ef092d72027c2db4d7bc344393f6c546;p=emacs.git (realizing_basic_faces_p): Renamed from realize_default_face_p. (realize_basic_faces): Set/clear realizing_basic_faces_p. (realize_default_face): Don't set the flag. --- diff --git a/src/xfaces.c b/src/xfaces.c index caf69488145..ac8a771e847 100644 --- a/src/xfaces.c +++ b/src/xfaces.c @@ -489,7 +489,7 @@ static Lisp_Object Vparam_value_alist; /* Non-zero while realizing the default face. */ -static int realizing_default_face_p; +static int realizing_basic_faces_p; /* The total number of colors currently allocated. */ @@ -2362,7 +2362,7 @@ x_face_list_fonts (f, pattern, fonts, nfonts, try_alternatives_p) /* If someone specified a default font that's scalable, try to do the right thing. */ - if (realizing_default_face_p + if (realizing_basic_faces_p && try_alternatives_p && n == 0 && nignored > 0) @@ -5954,6 +5954,7 @@ realize_basic_faces (f) /* Block input there so that we won't be surprised by an X expose event, for instance without having the faces set up. */ BLOCK_INPUT; + realizing_basic_faces_p = 1; if (realize_default_face (f)) { @@ -5979,6 +5980,7 @@ realize_basic_faces (f) success_p = 1; } + realizing_basic_faces_p = 0; UNBLOCK_INPUT; return success_p; } @@ -6081,11 +6083,7 @@ realize_default_face (f) xassert (lface_fully_specified_p (XVECTOR (lface)->contents)); check_lface (lface); bcopy (XVECTOR (lface)->contents, attrs, sizeof attrs); - - realizing_default_face_p = 1; face = realize_face (c, attrs, 0, NULL, DEFAULT_FACE_ID); - realizing_default_face_p = 0; - return 1; }